home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / Obrn-A_1.6_lib.lha / oberon-a / source3.lha / source / Obsolete / RexxUtil.mod < prev    next >
Text File  |  1995-06-29  |  2KB  |  61 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile: RexxUtil.mod $
  4.   Description: Rexx Variable Interface
  5.      Requires: The object file rexxvars.o must be explicitly linked with
  6.                the program.
  7.  
  8.    Created by: fjc (Frank Copeland)
  9.     $Revision: 3.7 $
  10.       $Author: fjc $
  11.         $Date: 1995/06/29 19:06:56 $
  12.  
  13.   Copyright © 1994, Frank Copeland.
  14.   This file is part of the Oberon-A Interface.
  15.   See Oberon-A.doc for conditions of use and distribution.
  16.  
  17. *************************************************************************)
  18.  
  19. <* STANDARD- *>
  20.  
  21. MODULE [4] RexxUtil ["rexxvars.o"];
  22.  
  23. IMPORT SYS := SYSTEM, e := Exec, rx := Rexx;
  24.  
  25. (*------------------------------------*)
  26. PROCEDURE CheckRexxMsg * ["CheckRexxMsg"]
  27.   ( rexxmsg [8] : rx.RexxMsgPtr )
  28.   : BOOLEAN;
  29.  
  30.  
  31. (*------------------------------------*)
  32. PROCEDURE [0] GetRexxVar *
  33.   ( rexxmsg    : rx.RexxMsgPtr;
  34.     name       : ARRAY OF CHAR;
  35.     VAR result : e.STRPTR )
  36.   : LONGINT;
  37.  
  38.   (*------------------------------------*)
  39.   (* Secondary result is returned in register A1 *)
  40.   PROCEDURE GetRexxVar0 ["GetRexxVar"]
  41.     ( rexxmsg    [8] : rx.RexxMsgPtr;
  42.       name       [9] : ARRAY OF CHAR )
  43.     : LONGINT;
  44.  
  45. <*$ReturnChk-*>
  46. <*$CopyArrays-*>
  47. BEGIN
  48.   SYS.PUTREG (0, GetRexxVar0 (rexxmsg, name));
  49.   SYS.GETREG (9, result)
  50. END GetRexxVar;
  51.  
  52. (*------------------------------------*)
  53. PROCEDURE SetRexxVar * ["SetRexxVar"]
  54.   ( rexxmsg [8] : rx.RexxMsgPtr;
  55.     name    [9] : ARRAY OF CHAR;
  56.     value   [0] : ARRAY OF CHAR;
  57.     length  [1] : LONGINT )
  58.   : LONGINT;
  59.  
  60. END RexxUtil.
  61.